(tool-bar-local-item-from-menu):

Fix parts in construction of `menu-item' item at end.

diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el
index 195f57e0a908c3af9f4d19d5c87d40f2b5b8f8f2..ab11bc8b4506538b2bc2cf193621f53e8ca1aca9 100644 (file)
--- a/lisp/toolbar/tool-bar.el
+++ b/lisp/toolbar/tool-bar.el
@@ -208,7 +208,7 @@ MAP must contain appropriate binding for `[menu-bar]' which holds a keymap."
              (append (cdr defn) (list :image image) props))
          (setq defn (cdr defn))
          (define-key-after in-map (vector key)
-           (append `(menu-item ,(car defn) ,(cddr defn))
+           (append `(menu-item ,(car defn) ,(cdr defn))
                    (list :image image) props)))))))
 
 ;;; Set up some global items.  Additions/deletions up for grabs.